﻿Imports Microsoft.Reporting.WinForms

Public Class FormGaji
    Dim iGaji As Gaji
    Public Sub SetGaji(gaji As Gaji)
        iGaji = gaji
    End Sub

    Private Sub FormGaji_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rpNip As New ReportParameter("rpNip", iGaji.Nip)
        Dim rpNama As New ReportParameter("rpNama", iGaji.Nama)
        Dim rpGolongan As New ReportParameter("rpGolongan", iGaji.Golongan)
        Dim rpLembur As New ReportParameter("rpLembur", iGaji.Lembur)
        Dim rpGajiPokok As New ReportParameter("rpGajiPokok", iGaji.GajiPokok)
        Dim rpGajiLembur As New ReportParameter("rpGajiLembur", iGaji.GajiLembur)
        Dim rpGajiTotal As New ReportParameter("rpGajiTotal", iGaji.GajiTotal)
        Dim rpGajiLemburTotal As New ReportParameter("rpGajiLemburTotal", iGaji.GajiLemburTotal)

        Me.ReportViewer1.LocalReport.SetParameters(rpNip)
        Me.ReportViewer1.LocalReport.SetParameters(rpNama)
        Me.ReportViewer1.LocalReport.SetParameters(rpGolongan)
        Me.ReportViewer1.LocalReport.SetParameters(rpLembur)
        Me.ReportViewer1.LocalReport.SetParameters(rpGajiTotal)
        Me.ReportViewer1.LocalReport.SetParameters(rpGajiPokok)
        Me.ReportViewer1.LocalReport.SetParameters(rpGajiLembur)
        Me.ReportViewer1.LocalReport.SetParameters(rpGajiLemburTotal)
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class